
(defun main()

  
  (format t "Enter an X var: ~%")
  (defvar x (read t))

  (format t "Enter a Y var: ~%")
  (defvar y (read t))

  (format t "X's int component:     ~d~%" (floor x))
  (format t "X's decimal component: ~d~%" (- x (floor x)))

  (format t "Y's int component:     ~d~%" (floor y))
  (format t "Y's decimal component: ~d~%" (- y (floor y)))

  (format t "X + Y = ~d~%" (+ x y))
  (format t "X - Y = ~d~%" (- x y))
  (format t "X * Y = ~d~%" (* x y))
  (format t "X / Y = ~d~%" (/ x y))
  0)
